home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 89 / 089.d81 / chart boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  53 lines
  1. 3 dv=peek(186):ifdv<8thendv=8
  2. 5 poke53281,.:poke53280,.:print"[147]"
  3. 10 gosub61000
  4. 11 poke214,6:print:print"      [154][211] [212] [201] [212] [195] [200]    [195] [200] [193] [210] [212] [197] [210]"
  5. 15 print"[155]    [198]or [206]eedlepoint and [195]ross-stitch"
  6. 17 printtab(14)"[195]omputerists"
  7. 19 poke214,11:print:print"            1[153]  [195]harter"
  8. 20 print"            2[153]  [201]nstructions
  9. 21 [153]"            3print  (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)     "
  10. 22 [161]k$:[139]k$[178]""[167]22
  11. 24 [139]k$[178]"1"[167]100
  12. 25 [139]k$[178]"2"[167][141]5000
  13. 30 [139]k$[178]"3"[167]60000
  14. 40 [137]22
  15. 99 :
  16. 100 [151]214,11:[153]:[153]"            1  lenharter"
  17. 102 [158]57812"chart.o",dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  18. 103 [151]17077,dv:[151]18194,dv:[151]18391,dv:[151]18497,dv:[151]18550,dv
  19. 105 [158]16384
  20. 106 [138]
  21. 110 :
  22. 5000 [151]214,12:[153]:[153]"            2  right$nstructions"
  23. 5005 [158]57812"reader c800",dv,0:[151]780,0:[151]781,0:[151]782,200:[158]65493
  24. 5007 [151]51253,dv
  25. 5010 [158]51200,"chart.instr","(NULL)titch lenhart valditor"
  26. 5020 [151]214,12:[153]:[153]"            2  printright$nstructions"
  27. 5024 [142]
  28. 5025 :
  29. 10000 [159]15,8,15,"s0:chart boot":[160]15:[148]"0:chart boot",8:[128]
  30. 10010 :
  31. 60000 [151]214,13:[153]:[153]"            3  (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  32. 60005 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  33. 60010 [139]er[179][177]63[167][128]
  34. 60020 [153]"stopload"[199](34)"hello connect"[199](34)",8"
  35. 60025 [153]"run"
  36. 60035 [151]631,13:[151]632,13:[151]198,2
  37. 60040 [162]
  38. 60999 :
  39. 61000 [151]214,15:[153]
  40. 61110 [153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  41. 61120 [153]"  print#                                    "
  42. 61130 [153]"                                      "
  43. 61140 [153]"                                      "
  44. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 89      "
  45. 61160 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  46. 61170 [153]"          atnll (NULL)ights (NULL)eserved         "
  47. 61180 [153]"                                      "
  48. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  49. 61200 au$[178]"(NULL) (NULL) right$ (NULL) len left$    len left$ atn (NULL) (NULL) val (NULL)":[151]214,17:[153]
  50. 61205 [153][166]20[171][195](au$)[173]2)"print#"au$
  51. 61210 au$[178]"peeky peekarbara left$. (NULL)chulak (len) 1991":[151]214,18:[153]
  52. 61220 [153][166]20[171][195](au$)[173]2)"print#"au$"":[142]
  53.